home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Science
/
MAL ©P.f.Howden 1⁄1⁄89
/
EQUATION.TXT
< prev
next >
Wrap
Text File
|
1989-02-13
|
216b
|
4 lines
1000 PI=3.141592#:F=(PI*SIN(5*X)/8-EXP(PI*SQR(X+1)/8)+SQR(X+PI*5/8))*SQR(1+PI*(X-1)^2/8)/((EXP(-1*X*X)-PI/4)*(1+PI*(X+1)^2/8))+PI/8
10 'F(0)=X(0)*X(0)+X(0)*X(1)+X(1)*X(1)-3:RETURN
11 'F(1)=SIN(X(0))-X(1)*X(1):RETURN